home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 89
/
089.d81
/
crypt boot 89
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
774b
|
23 lines
3 dv=peek(186):ifdv<8thendv=8
5 poke53281,.:poke53280,.:print"[147]"
10 gosub60000
11 poke214,9:print:printtab(11)"[154][195][210][217][208][212][201][195] [195][210][207][211][211][215][207][210][196]"
15 print"[159] [193] [204][207][193][196][211][212][193][210] [208]uzzle for the [212]rolley"
100 print"[144]load"chr$(34)"pxword 89"chr$(34)","dv
110 print"run"
120 poke631,13:poke632,13:poke633,13:poke198,3
130 end
10000 open15,8,15,"s0:crypt boot 89":close15:save"0:crypt boot 89",8:end
60000 b9$=" "
60010 poke214,14:print:print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
60020 fori=0to7:printb9$:next:print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 b9$(0)="[195] [210] [217] [208] [212] [201] [195] 8 9"
60040 b9$(1)="by [198]. [212]ucker/[194]. [211]chulak"
60050 b9$(2)="([195]) 1991 by [211]oftdisk, [201]nc."
60060 b9$(3)="[208]ublished on [204][207][193][196][211][212][193][210] #89"
60070 b9$(4)="[211]ubscriptions 1-800-831-2694"
60080 b9$(5)="[193]ll [210]ights [210]eserved"
60090 poke214,16:print:fori=0to5:printtab(20-(len(b9$(i))/2))""b9$(i):next
60099 return
60999 :